home *** CD-ROM | disk | FTP | other *** search
/ Dark Star 1 / Dark_Star_01_1995_-_de_Side_B.d64 / dallas oil (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  19KB  |  638 lines
  1. 0 printchr$(8);chr$(142)
  2. 10 rem
  3. 11 rem
  4. 12 rem        o  e  l
  5. 13 rem
  6. 14 rem
  7. 15 rem
  8. 16 rem
  9. 20 gosub1460:print"[147][158]":poke53280,0:poke53281,2:gosub1900
  10. 30 forb=1to3
  11. 40 print"             [146]             [146]    [146]"
  12. 50 nextb:forb=1to7
  13. 60 print"    [146]         [146]    [146]             [146]"
  14. 70 nextb:forb=1to3
  15. 80 print"    [146]         [146]         [146]        [146]"
  16. 90 nextb:forb=1to7
  17. 100 print"    [146]         [146]    [146]             [146]"
  18. 110 nextb:forb=1to3
  19. 120 nextb:forb=1to3
  20. 130 print"             [146]             [146]            [146]"
  21. 140 nextb
  22. 200 v=1:gosub50000:gosub60300
  23. 260 gosub60000
  24. 280 print"   das grosse spiel ums grosse geld.":gosub60000
  25. 300 gosub60100:gosub60000
  26. 320 print" wieviele wollen mitpumpen (2-6 pumper)":gosub60000
  27. 340 getsz:ifsz>1andsz<7then450
  28. 360 print"?"
  29. 380 fort=1to90:nextt
  30. 400 print" "
  31. 420 fort=1to90:nextt
  32. 440 goto340
  33. 450 printtab(9)"[145]einen  moment  bitte"
  34. 460 dimab(13),bd(13),bm(13),bf$(13),bp(13),bt(13),fb(13),f(13),fm(13),pa(13)
  35. 480 dimta(13),rp(37),gf(12),gg(12)
  36. 500 bf$(1)="benzinacker  "
  37. 520 bf$(2)="ever-sprudel "
  38. 540 bf$(3)="tieferschlund"
  39. 560 bf$(4)="dollarspritz "
  40. 580 bf$(5)="heavypump    "
  41. 600 bf$(6)="lineonpipe   "
  42. 620 bf$(7)="happybohr    "
  43. 640 bf$(8)="immerdruck   "
  44. 660 bf$(9)="lucky hole   "
  45. 680 bf$(10)="black gold   "
  46. 700 bf$(11)="overbubble   "
  47. 720 bf$(12)="dauersprit   "
  48. 740 vg$(1)="denvercream"
  49. 760 vg$(2)="ewingoil      "
  50. 780 vg$(3)="sell & hopp   "
  51. 800 vg$(4)="never & again "
  52. 820 vg$(5)="salatoil inc  "
  53. 840 vg$(6)="swimminoil inc"
  54. 860 pf$(1)="bay. pumpe eg  "
  55. 880 pf$(2)="dt.pumpenglueck"
  56. 900 ra$="bohr & pump & sohn"
  57. 920 tg$(1)="raff und gier  "
  58. 940 tg$(2)="knaltex  gmbh  "
  59. 960 tg$(3)="never come back"
  60. 980 tg$(4)="oil on the road"
  61. 1000 fort=1to12
  62. 1020 bp(t)=int(rnd(1)*70000)+30000
  63. 1040 fm(t)=int((bp(t)-(rnd(1)*9999)+1)*10)
  64. 1060 nextt
  65. 1080 fort=1to12:bt(t)=int(rnd(1)*3666)+1:nextt:k=int(rnd(1)*100000)+100000
  66. 1100 l1=int(rnd(1)*6)+1
  67. 1120 fm(l1*2)=1200:fm(l1*2-1)=1400
  68. 1140 fort=1to2
  69. 1160 pf(t)=int(rnd(1)*80000)+20000
  70. 1180 nextt
  71. 1200 fort=1to4
  72. 1220 tp(t)=int(rnd(1)*55000)+25000
  73. 1240 tw(t)=int(tp(t)/10000)*3:nextt
  74. 1260 rp(1)=int(rnd(1)*7)+7
  75. 1280 fort=2to34
  76. 1300 rp(t)=rp(t-1)+(int(rnd(1)*14)-7)
  77. 1320 ifrp(t)<0thenrp(t)=1:goto1300
  78. 1340 ifrp(t)>20thenrp(t)=20
  79. 1360 nextt:fort=1to34
  80. 1380 a1$="  sie muessen leider drauflegen"
  81. 1400 a2$="  ihr vorhaben ist gelungen!"
  82. 1420 a3$="% erwischt           "
  83. 1440 deffnz(x)=int(rnd(1)*x)+1:goto1520
  84. 1460 si=54272:fl=si:fh=si+1:tl=si+2
  85. 1480 th=si+3:w=si+4:a=si+5:h=si+6
  86. 1500 l=si+24:rz=1989:return
  87. 1520 gosub60000:gosub60000
  88. 1540 print"        wir befinden uns im jahr":gosub60000:gosub60300
  89. 1560 printtab(13)"[166] [166][166][166] [166][166][166] [166][166][166]"
  90. 1580 printtab(13)"[166] [166] [166] [166] [166] [166] [166]"
  91. 1600 printtab(13)"[166] [166][166][166] [166][166][166] [166][166][166]"
  92. 1620 printtab(13)"[166]   [166] [166] [166]   [166]"
  93. 1640 printtab(13)"[166] [166][166][166] [166][166][166] [166][166][166]"
  94. 1660 gosub60000:gosub60300:gosub60000
  95. 1680 print"     das spiel endet im jahre 2050":gosub60000:gosub60100
  96. 1700 b$(1)="deep throat inc.   "
  97. 1720 b$(2)="tief und schnell ag"
  98. 1740 b$(3)="turbo & drill gmbh "
  99. 1760 fort=1to3
  100. 1780 bg(t)=int(rnd(1)*50000)+10000
  101. 1800 nextt
  102. 1820 a4$=" welche soll verkauft werden":goto2000
  103. 1900 data8,180,600,13,10,600,10,247,300,9,196,150,10,247,150,8,180,300
  104. 1920 data6,133,300,8,180,300,14,162,300,13,10,300,10,247,150,11,158,150
  105. 1940 data13,10,900,-1,-1,0
  106. 1960 return
  107. 2000 print"[146]     [157][157][157][157][157]"sz"pumper spielen mit  "
  108. 2020 print" nun noch die namen (max 12 buchstaben)"
  109. 2040 fort=1tosz
  110. 2060 input"      ";sn$(t):iflen(sn$(t))>15thenprint" zu lang":goto2060
  111. 2080 ks(t)=k:nextt:gosub60000:v=2
  112. 2100 print"viel spass beim geldmachen und verlieren":gosub50000:gosub60000
  113. 2120 print"jeder spieler hat "k"$ startkapital":gosub60000:gosub60100
  114. 2220 print"[147][158]":poke53280,4:poke53281,14
  115. 2240 print"   ihnen stehen folgende wege offen:":print:k=0
  116. 2260 print" [144]1.  oelfelder erwerben."
  117. 2280 print" 2.  pumpenhersteller werden."
  118. 2300 print" 3.  tankwagenhersteller werden."
  119. 2310 print" 4.  bohrgesellschafter werden."
  120. 2320 print" 5.  sabotage betreiben."
  121. 2340 print" 6.  und natuerlich alles zusammen."
  122. 2360 print" 7.  oder gar nichts von allem."
  123. 2400 print" [158]    sieger ist logischer weise der"
  124. 2420 print"     mit dem meisten kapital am ende"
  125. 2440 print"     des spiels."
  126. 2460 print"";:gosub60200
  127. 2500 print"[147][158]";:poke53280,1:poke53281,2
  128. 2520 print"   die raffinerieoelpreisentwicklung    ";
  129. 2530 print"   trend der naechsten jahre (runden)   ";:gosub60300
  130. 2560 fort=1to34:pokel,15:forb=1torp(t)
  131. 2580 pokea,21:poke56218+t-(b*40),4
  132. 2600 pokeh,255:poke1946+t-(b*40),224
  133. 2620 poketh,8:poketl,0:pokefh,41-t
  134. 2640 pokefl,101-t:pokew,17
  135. 2660 nextb,t:pokew,0
  136. 2680 print;:gosub60200:fort=1to34:rp(t)=rp(t)/10:nextt
  137. 3000 r=r+1:fors=1tosz
  138. 3100 print"[147]":poke53280,4:poke53281,4
  139. 3120 print"entscheidungsmoeglichkeit fuer":gosub52000
  140. 3140 print"[159][146]spieler "sn$(s)" $="ks(s):print"    einkauf von [146]"
  141. 3160 print"[144]   a = bohrgesellschaft"
  142. 3180 print"   b = pumpengesellschaft"
  143. 3200 print"[144]   c = tankwagenfirma"
  144. 3220 print"   d = oelfeld"
  145. 3240 print"[144]   e = bohrgestaenge"
  146. 3260 print"   f = pumpe"
  147. 3280 print"[144]   g = tankwagen":print"     sonstiges  [146]"
  148. 3300 print"   h = naechster spieler"
  149. 3320 print"[144]   i = sabotage betreiben"
  150. 3340 print"   j = preisfestlegung"
  151. 3360 print"[144]   k = weitermachen"
  152. 3400 gosub60200:z2=asc(s$):z2=z2-64
  153. 3410 ifz2<1orz2>12then3400
  154. 3420 onz2gosub37000,31000,32000,30000,38000,39000,40000,3500,35000,42000,3500
  155. 3440 nexts:goto4000
  156. 3500 return
  157. 4000 fors=1tosz
  158. 4200 fori=1to12:gosub12000:nexti
  159. 4300 ks(s)=int(ks(s)):nexts
  160. 4400 print"[147]":gosub29000
  161. 4500 gosub59000:rz=rz+1:ifrz=2050then6000
  162. 4600 goto3000
  163. 6000 print"[147]":poke53281,0:poke53280,0
  164. 6100 print" das"
  165. 6200 print"    spiel"
  166. 6300 print"         ist"
  167. 6400 print"            vorrueber"
  168. 6500 print"[154] hier das gesamtergebnis:"
  169. 6700 print" spieler      bankkredit     kapital"
  170. 6800 print" [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  171. 6900 forz0=1tosz
  172. 7000 print"  "sn$(z0);:printtab(15)bk(z0);:printtab(28)int(ks(z0)-(bk(z0)*1.6))
  173. 7100 nextz0
  174. 7200 print" ich hoffe sie hatten viel freude und"
  175. 7300 print" verbleibe als ihr oely.[144]":v=1:gosub50000:end
  176. 10000 print"[147]":poke53281,8:poke53280,0
  177. 10020 print"[151]    [169][146][144][178][151][223][146]    [213][195][195][195][178][201] [146]  [144]  o e l f e l d  [146]"
  178. 10040 print"[151]     [146][144][221][151] [146]    [171][195][195][195][189][202][201][146]";:printtab(22)bf$(i)
  179. 10060 print"[151]     [146][144][221][151] [146]    [173][144][215][215][195][195][144][215][203][146]  [144][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  180. 10080 printtab(20)"[144] b e s i t z e r [146]"
  181. 10090 ifgg(i)<fm(i)thengf(i)=gf(i)+(8000*(pa(i)))
  182. 10100 printtab(22)sn$(s):gg(i)=gg(i)+(8000*(pa(i)))
  183. 10120 print"    jahr "rz;
  184. 10140 printtab(20)"[144][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  185. 10160 print" "ra$" -":print" raffinerieabnahmepreis = "rp(r)"$"
  186. 10400 print"[144] pumpenanzahl :"pa(i)
  187. 10420 print"[153] versandmenge :"gf(i)
  188. 10440 print"[144] tankwagen    :"ta(i)
  189. 10460 print"[153] lkwkapazitaet:"ta(i)*9000
  190. 10480 print"[144] kapital      :"ks(s)
  191. 10500 ifgg(i)>fm(i)thenprint"   quelle erschoepft!"
  192. 10505 ifgf(i)<=0thenprint"";:gosub60200:return
  193. 10510 ifta(i)=0orpa(i)=0thenprint"";:gosub60200:return
  194. 10520 print:input" wieviel liter sollen weg";m
  195. 10540 ifm>gf(i)orm>ta(i)*9000thenprint" zuviel[145][145][145]":goto10520
  196. 10560 ks(s)=ks(s)+(m*(rp(r))):gf(i)=gf(i)-m
  197. 10580 print" kapital      :"ks(s)" $"
  198. 10600 print"";:gosub60200:return
  199. 12000 iffb(i)<>sthenreturn
  200. 12005 iff(i)=1then10000
  201. 12010 print"[147]":poke53280,0:poke53281,1
  202. 12040 print"    [169]    [223][146][152][162][144][164][164]"
  203. 12060 print"         [146][169][152][162][146][144][163][163]";
  204. 12080 printtab(17)"bohrung auf feld"
  205. 12100 print"     [146][150][161]  [161][153]";
  206. 12120 printtab(17)bf$(i)
  207. 12140 print"     [146]   [190]   "
  208. 12160 print"  [144] [213][203]";
  209. 12180 printtab(12)"[154]besitzer:[144]"sn$(s)
  210. 12200 print"  [144][195][203]"
  211. 12220 print" ihr oelfeldlagerverwalter teilt ihnen"
  212. 12240 print" folgende daten mit:"
  213. 12260 ifbm(i)<=0thenprint" bohrung unmoeglich, da kein gestaenge"
  214. 12280 ifbm(i)<=0thenprint" mehr vorhanden. wir brauchen nachschub!":goto12320
  215. 12300 bm(i)=bm(i)-500:ab(i)=ab(i)+500-fnz(30)
  216. 12320 print" bisherige bohrtiefe    :"ab(i)"m"
  217. 12340 print" bohrgestaenge noch fuer:"bm(i)"m"
  218. 12360 ifab(i)>=bt(i)thenprint" wir sind fuendig.":f(i)=1:v=3:gosub50000
  219. 12460 print"";:gosub60200:return
  220. 28000 print:fordd=1to12:printdd;
  221. 28100 iffb(dd)=sthenprinttab(10)bf$(dd):goto28300
  222. 28200 print
  223. 28300 nextdd
  224. 28400 print:input"fuer welches oelfeld";d
  225. 28500 ifd=0thenreturn
  226. 28600 iffb(d)<>sthen28400
  227. 28700 return
  228. 29000 print"jahr:"rz:print:forz8=1tosz
  229. 29100 printsn$(z8);
  230. 29200 printtab(20)"kapital:"ks(z8)
  231. 29300 nextz8
  232. 29400 print"";
  233. 29500 gosub60200:return
  234. 30000 print"[147]";:poke53280,4:poke53281,14
  235. 30020 print"[158]                                        [146]";
  236. 30040 print"     o e l f e l d a n g e b o t e      [146]";
  237. 30060 print"[158]                                        [146]";
  238. 30080 print"  gesellschaft     oelfeld     preis $"
  239. 30100 fort=1to6:printvg$(t)
  240. 30120 print:nextt
  241. 30140 print""
  242. 30160 fort=1to12:printtab(15)""chr$(64+t);:printtab(17)""bf$(t)
  243. 30180 nextt:print"[144]"
  244. 30200 fort=1to12:iffb(t)>0thenprinttab(31)"[159]verkauft[144]":goto30240
  245. 30220 printtab(32)bp(t)
  246. 30240 nextt
  247. 30260 print"   "sn$(s)""
  248. 30280 print"[144]welches feld soll gekauft werden?  [164]"
  249. 30300 print"liquides kapital:"ks(s)"$"
  250. 30320 gets$:ifs$=""then30320
  251. 30340 b=asc(s$)-64:ifb>90orb<0then30320
  252. 30360 ifb>12thenreturn
  253. 30380 iffb(b)>0then30320
  254. 30400 fb(b)=s:ks(s)=ks(s)-bp(b)
  255. 30420 print"[145][145][145][158]"tab(35)s$""
  256. 30440 printtab(17)"        [157][157][157][157][157][157][157][157]"ks(s)
  257. 30460 fort=1to1500:nextt
  258. 30480 return
  259. 31000 print"[147]";:poke53281,6:poke53280,2
  260. 31020 gosub50000:print"[158]  pumpe                                 ";
  261. 31040 print"    &     pumpenvereinigungsgesellschaft";
  262. 31060 print"[158]  pumpe                                 "
  263. 31080 print" betr.  pumpenfabrikanfrage"
  264. 31100 print" [197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
  265. 31120 ifpp(1)>0andpp(2)>0then31280
  266. 31140 print" wir koennen ihnen folgende angebote"
  267. 31160 print" unterbreiten."
  268. 31180 print" 1 "pf$(1);:ifpp(1)>0thenprinttab(30)"verkauft":goto31220
  269. 31200 printtab(28)pf(1)
  270. 31220 print" 2 "pf$(2);:ifpp(2)>0thenprinttab(30)"verkauft[158]":goto31260
  271. 31240 printtab(28)pf(2)
  272. 31260 goto31360
  273. 31280 print"leider muessen wir ihnen mitteilen, dass";
  274. 31300 print" zur zeit keine pumpenherstellungsfirma"
  275. 31320 print"zum verkauf ansteht."
  276. 31340 gosub60200:return
  277. 31360 print" wenn sie eine fabrik kaufen wollen;"
  278. 31380 print" druecken sie die betreffende zahl. wenn";
  279. 31400 print" sie nicht(_ollen druecken sie 'x'"
  280. 31420 gets$:ifs$=""then31420
  281. 31440 ifs$="1"andpp(1)=0thenks(s)=ks(s)-pf(1):pp(1)=s:gosub60000:goto31520
  282. 31460 ifs$="2"andpp(2)=0thenks(s)=ks(s)-pf(2):pp(2)=s:gosub60000:goto31620
  283. 31480 print"  schade - das wir nicht ins geschaeft":print"  kommen"
  284. 31500 gosub60100:return
  285. 31520 gosub60000:print""
  286. 31540 print"[153] sie sind nun besitzer der firma:":print"     "pf$(1)"."
  287. 31560 input" legen sie den pumpenpreis fest";p(1)
  288. 31580 ifp(1)>60000thenprint"zu hoch!":goto31560
  289. 31600 goto31700
  290. 31620 gosub60000:print""
  291. 31640 print"[153] sie sind nun besitzer der firma:":print"     "pf$(2)"."
  292. 31660 input"legen sie den pumpenpreis fest";p(2)
  293. 31680 ifp(2)>60000thenprint"zu hoch!":goto31660
  294. 31700 print"  [158]alles klar!":gosub60100:return
  295. 32000 print"[147]";:poke53280,0:poke53281,14:gosub50000
  296. 32020 print"                                        [146]";
  297. 32040 print"     t a n k w a g e n f i r m e n      [146]";
  298. 32060 print"                                        [146]";
  299. 32080 print"             v e r k a u f              [146]";
  300. 32100 print"                                        [146]";
  301. 32120 print" nr    f i r m a        lkw   preis     [146]"
  302. 32140 fort=1to4
  303. 32160 print:printt"  "tg$(t):nextt
  304. 32180 print""
  305. 32200 fort=1to4
  306. 32220 iftb(t)>0thenprinttab(30)"verkauft":goto32260
  307. 32240 print:printtab(24)tw(t);:printtab(29)tp(t)
  308. 32260 nextt
  309. 32280 print" kein kauf = 'x'"
  310. 32300 gets$:ifs$=""then32300
  311. 32320 b=val(s$):iftb(b)>0thenreturn
  312. 32340 ifb>4orb=0thenreturn
  313. 32360 ks(s)=ks(s)-tp(b):tb(b)=s
  314. 32380 print"  ihr kapital betraegt jetzt"ks(s)""
  315. 32400 input" ihr tankwagenpreis";lp(b)
  316. 32420 iflp(b)>60000thenprint"[147] unrealistisch!":goto32400
  317. 32440 return
  318. 33000 print"[147]":poke53280,0:poke53281,0
  319. 33020 print"     hier faellt die entscheidung !"
  320. 33040 w3=int(rnd(1)*10)+1
  321. 33060 printtab(15)" + 50 %   [146]"
  322. 33080 printtab(15)" - 20 %   [146]"
  323. 33100 printtab(15)" + 40 %   [146]"
  324. 33120 printtab(15)" - 10 %   [146]"
  325. 33140 printtab(15)" + 30 %   [146]"
  326. 33160 printtab(15)" - 30 %   [146]"
  327. 33180 printtab(15)" + 10 %   [146]"
  328. 33200 printtab(15)" - 40 %   [146]"
  329. 33220 printtab(15)" + 20 %   [146]"
  330. 33240 printtab(15)" - 50 %   [146]"
  331. 33260 print"  druecken sie im richtigen moment 'f1'":e=0
  332. 33280 fort=1207to1567step40
  333. 33300 poket,31:forb=1to3:nextb
  334. 33320 e=e+1:gets$
  335. 33340 ifs$=chr$(133)then33380
  336. 33360 poket,224:nextt:e=0:goto33280
  337. 33380 print"  sie haben die ";
  338. 33400 onegoto33420,33440,33460,33480,33500,33520,33540,33560,33580,33600
  339. 33420 print"+50"a3$a1$:e=50:goto33620
  340. 33440 print"-20"a3$a2$:e=-20:goto33620
  341. 33460 print"+40"a3$a1$:e=40:goto33620
  342. 33480 print"-10"a3$a2$:e=-10:goto33620
  343. 33500 print"+30"a3$a1$:e=30:goto33620
  344. 33520 print"-30"a3$a2$:e=-30:goto33620
  345. 33540 print"+10"a3$a1$:e=10:goto33620
  346. 33560 print"-40"a3$a2$:e=-40:goto33620
  347. 33580 print"+20"a3$a1$:e=20:goto33620
  348. 33600 print"-50"a3$a2$:e=-50
  349. 33620 print"";:gosub60200:return
  350. 35000 print"[147]":poke53281,11:poke53280,0
  351. 35020 fort=1to23
  352. 35040 gosub51000
  353. 35060 print""spc(t)"sabotageaktion"
  354. 35080 nextt
  355. 35100 gosub60000:gosub60000
  356. 35120 print"[147]":printtab(12)sn$(s)
  357. 35140 print"  folgende sabotagemoeglichkeiten"
  358. 35160 print"  stehen zur verfuegung:"
  359. 35180 print"[154]  agenten anwerben und fremdes oel-"
  360. 35200 print"  feld durch ihn unbrauchbar machen"
  361. 35220 print"  lassen.  = f1"
  362. 35240 print"[158]  pumpenfirma durch sabotage ausser"
  363. 35260 print"  betrieb setzen.  = f3"
  364. 35280 print"[154]  tankwagenfirma durch bestechhung"
  365. 35300 print"  der kreditgeber konkurs gehen "
  366. 35320 print"  lassen.  = f5":w4=fnz(40000)
  367. 35325 print"[158]  bohrfirma durch oelueberschwemmung"
  368. 35330 print"  ausser kraft setzen.  = f7"
  369. 35340 print"[154]  lieber doch nichts machen. = 'x'":w3=int(rnd(1)*40000)+40000
  370. 35360 gosub60200
  371. 35380 ifs$=chr$(136)then45000
  372. 35400 ifs$=chr$(133)then35480
  373. 35420 ifs$=chr$(134)then43000
  374. 35440 ifs$=chr$(135)then44000
  375. 35460 return
  376. 35480 gosub60000:gosub60000
  377. 35500 print"[147][150] hey, hier ist agent diabolo huggi baer"
  378. 35520 print" welches oelfeld soll ich sabotieren?[152]"
  379. 35540 fort=1to12:print" "t,bf$(t):nextt
  380. 35560 print:input"  oelfeldnummer";n
  381. 35580 ifn<1orn>12thenreturn
  382. 35600 print"[150] so. fuer die sabotage des oelfeldes"
  383. 35620 print" fallen folgende unkosten an:"
  384. 35680 print" spesen, schmiergelder etc = "w3
  385. 35700 print" korken, sprengstoff etc   = "w4
  386. 35720 print" gesamt                    = "w3+w4
  387. 35740 print" [144]die chancen einer erfolgreichen"
  388. 35760 print" durchfuehrung liegen bei 33% .";:gosub60100:gosub60000
  389. 35780 print""
  390. 35800 print" soll ich zur tat schreiten?"
  391. 35820 gets$:ifs$=""then35820:ifs$="n"thenreturn
  392. 35830 ifs$="n"thenreturn
  393. 35840 ifs$="j"then35880
  394. 35860 goto35820
  395. 35880 ks(s)=ks(s)-w3-w4:w3=0:w4=0
  396. 35900 w3=fnz(3):t1=0
  397. 35920 ifw3=1thenbp(n)=fnz(50000)+30000:w4=fnz(200000):fm(n)=w4:t1=2:f(n)=0
  398. 35940 ifw3=1thenbt(n)=fnz(4500):fb(n)=0:pa(n)=0:ta(n)=0:ab(n)=0:bm(n)=0:gf(n)=0
  399. 35950 ifw3=1thengg(n)=0
  400. 35960 print" [154] sabotageergebnis durch tastendruck"
  401. 35980 gets$:ifs$=""then35980
  402. 36000 fork=1to30:pokel,15
  403. 36020 pokea,190:poketh,8:pokefh,k
  404. 36040 printtab(13)"[158]  gelungen [145]"
  405. 36060 pokefl,k:pokew,33:fort=1to100:nextt
  406. 36080 printtab(13)"[154] misslungen[145]":fort1=1to100:nextt1:pokew,0:nextk
  407. 36100 ifw3=1thenprinttab(13)"  gelungen "
  408. 36120 ifw3<>1thenprinttab(13)"[144]pech  gehabt"
  409. 36140 pokew,0
  410. 36160 ifw3<>1thengosub60300:return
  411. 36180 fort=16to0step-1
  412. 36200 pokel,t:pokea,15:pokeh,0
  413. 36220 pokefh,40:pokefl,200:pokew,129
  414. 36240 forts=1to100:nextts
  415. 36260 nextt
  416. 36300 pokel,15:pokea,190:pokeh,64
  417. 36320 pokefh,1:pokefl,95
  418. 36340 pokew,129
  419. 36360 fortt=1to1000:nexttt
  420. 36380 pokew,0:return
  421. 37000 print"[147]":poke53280,6:poke53281,6
  422. 37020 gosub50000
  423. 37040 print"                                        ";
  424. 37060 print"     bohrgesellschaftskaufangebote      ";
  425. 37080 print"                                        "
  426. 37100 fort=1to3:ifbb(t)=0then37140
  427. 37120 nextt:print"keine mehr da":gosub60100:return
  428. 37140 t=0:fort=1to3
  429. 37160 ifbb(t)>0then37200
  430. 37180 print""t;" "b$(t),bg(t)"  $"
  431. 37200 nextt
  432. 37220 print" welche gesellschaft wollen sie kaufen?"
  433. 37240 gosub60200
  434. 37260 z1=val(s$):ifz1=0orbb(z1)>0thenreturn
  435. 37280 print"sie sind nun inhaber der gesellschaft":printb$(z1)". legen sie nun"
  436. 37300 print"ihren bohrgestaengepreis fuer 500 m fest"
  437. 37320 inputbd(z1)
  438. 37340 ks(s)=ks(s)-bg(z1):bb(z1)=s:return
  439. 38000 print"[147]":poke53281,8:poke53280,8
  440. 38020 print"folgende bohrgestaenge werden angeboten:"
  441. 38040 print"firma";spc(15)"preis fuer 500 meter"spc(20)"bohrgestaenge"
  442. 38060 forz=1to40:print"[196]";:nextz:z=0
  443. 38080 forz=1to3:printz"  "b$(z);
  444. 38100 ifbb(z)>0thenprinttab(26)bd(z)"$":goto38140
  445. 38120 printtab(26)"[144]kein angebot"
  446. 38140 nextz
  447. 38160 ifbb(1)=0andbb(2)=0andbb(3)=0thenprint"es gibt noch keine firma die"
  448. 38180 ifbb(1)=0andbb(2)=0andbb(3)=0thenprint"die gestaenge verkauft!"
  449. 38200 ifbb(1)=0andbb(2)=0andbb(3)=0thengosub60100:gosub60300:return
  450. 38220 print""
  451. 38240 input"einkauf bei welcher firma";cc:ifcc=0thenreturn
  452. 38260 ifbd(cc)=0thenprint"[144] liegt noch kein angebot vor":goto38240
  453. 38280 input"wieviel 500m einheiten wollen sie";c:ifc=0thenreturn
  454. 38300 gosub28000
  455. 38320 ifd=0thenreturn
  456. 38340 ks(s)=ks(s)-(c*(bd(cc)))
  457. 38350 fork=1tosz:ifbb(cc)=sthenks(s)=ks(s)+(.2*(c*(bd(cc)))):goto38380
  458. 38360 ifbb(cc)=kthenks(k)=ks(k)+(c*(bd(cc)))
  459. 38380 nextk:bm(d)=bm(d)+c*500:gosub29000
  460. 38400 d=0:dd=0:c=0:cc=0:k=0:return
  461. 39000 print"[147]";:poke53281,12:poke53280,12
  462. 39020 print"  **    pumpenverkaeuferangebote    **  [146]"
  463. 39040 print" gesellschaft    pumpenpreis in $"
  464. 39060 forb=0to39:print"[184]";:nextb:print
  465. 39080 forz=1to2:printz;pf$(z);
  466. 39100 ifpp(z)=0thenprint" [144]kein angebot":goto39140
  467. 39120 printp(z)
  468. 39140 nextz:print""
  469. 39160 input"kauf bei welcher firma ";cc
  470. 39180 ifcc=0thenreturn
  471. 39200 ifpp(cc)=0thenprint"kein angebot da":goto39160
  472. 39220 input"[144]kauf von wieviel pumpen";c
  473. 39240 ifc=0thenreturn
  474. 39260 gosub28000:ifd=0thenreturn
  475. 39280 ks(s)=ks(s)-(c*p(cc))
  476. 39290 fork=1tosz:ifpp(cc)=sthenks(s)=ks(s)+(.2*(c*p(cc))):goto39320
  477. 39300 ifpp(cc)=kthenks(k)=ks(k)+(c*p(cc))
  478. 39320 nextk:pa(d)=pa(d)+c:gosub29000
  479. 39340 d=0:dd=0:c=0:cc=0:k=0:return
  480. 40000 print"[147][158]";:poke53281,10:poke53280,10
  481. 40020 print"  **   tankwagenverkaufsangebote    **  [146]"
  482. 40040 print" nr firma      anzahl  preis"
  483. 40060 forb=0to39:print"[184]";:nextb:print
  484. 40080 forz=1to4:printz;tg$(z);tw(z);
  485. 40100 iftb(z)=0thenprint" [144]kein angebot":goto40140
  486. 40120 printlp(z)
  487. 40140 nextz:print""
  488. 40160 input"lkwkauf bei welcher firma";cc
  489. 40180 ifcc=0thenreturn
  490. 40200 iftb(cc)=0ortw(cc)<=0thenprint" geht nicht!":goto40160
  491. 40220 input"[144]kauf von wieviel lkw     ";c
  492. 40240 ifc=0orc>tw(cc)thenreturn
  493. 40260 gosub28000:ifd=0thenreturn
  494. 40280 ks(s)=ks(s)-(c*lp(cc)):tw(cc)=tw(cc)-c
  495. 40290 fork=1tosz:iftb(cc)=sthenks(s)=ks(s)+(.2*(c*lp(cc))):goto40320
  496. 40300 iftb(cc)=kthenks(k)=ks(k)+(c*lp(cc))
  497. 40320 nextk:ta(d)=ta(d)+c:gosub29000
  498. 40340 d=0:dd=0:c=0:cc=0:k=0:return
  499. 42000 print"[147]":poke53280,2:poke53281,2
  500. 42100 print" fuer welches produkt wollen sie den "
  501. 42120 print" preis neu festlegen?"
  502. 42140 print" 1   =   pumpenpreis"
  503. 42160 print" 2   =   tankwagenpreis"
  504. 42180 print" 3   =   bohrgestaengepreis"
  505. 42200 input" nr";e1:ife1<=0ore1>3then42200
  506. 42220 print"[147]":one1goto42300,42500,42700
  507. 42300 print"nr  firma          pumpenpreis"
  508. 42320 forz=1to2:printz;pf$(z);p(z):nextz
  509. 42340 print:input" welche firma";e1
  510. 42360 ife1<=0ore1>2thenprint" keine festlegung":gosub60300:return
  511. 42380 ifpp(e1)<>sthenprint" gehoert ihnen nicht!":goto42340
  512. 42400 print"":gosub58000
  513. 42420 p(e1)=e2:gosub29000:e1=0:e2=0:return
  514. 42500 print"nr  firma       tankwagenpreis"
  515. 42520 forz=1to4:printz;tg$(z);lp(z):nextz
  516. 42540 print:input" welche firma";e1
  517. 42560 ife1<=0ore1>4thenprint" keine festlegung":gosub60300:return
  518. 42580 iftb(e1)<>sthenprint" gehoert ihnen nicht!":goto42540
  519. 42600 print"":gosub58000
  520. 42620 lp(e1)=e2:gosub29000:e1=0:e2=0:return
  521. 42700 print"nr  firma       gestaengepreis"
  522. 42720 forz=1to3:printz;b$(z);bd(z):nextz
  523. 42740 print:input" welche firma";e1
  524. 42760 ife1<=0ore1>3thenprint" keine festlegung":gosub60300:return
  525. 42780 ifbb(e1)<>sthenprint" gehoert ihnen nicht!":goto42740
  526. 42800 print"":gosub58000
  527. 42820 bd(e1)=e2:gosub29000:e1=0:e2=0:return
  528. 43000 print"[147] welche der folgenden pumpenfirmen soll"
  529. 43020 print" sabotiert und uebernommen werden?"
  530. 43040 print"gesellschaft    preis       besitzer    "
  531. 43060 forz=1to2
  532. 43080 printz;pf$(z);pf(z);
  533. 43100 forzz=1tosz:ifpp(z)=zzthenprinttab(25)sn$(zz)
  534. 43120 nextzz,z:print""
  535. 43140 gosub59900
  536. 43160 ifn<=0orn>2orpp(n)=0thenreturn
  537. 43180 gosub33000
  538. 43200 e=e+100:ife<100then43280
  539. 43220 ks(s)=ks(s)-((pf(n)*e)/100)
  540. 43240 goto43340
  541. 43280 ks(s)=ks(s)-((pf(n)*e)/100)
  542. 43320 pp(n)=0:w3=fnz(100000):pf(n)=w3:p(n)=0
  543. 43340 e=0:z=0:zz=0:return
  544. 44000 print"[147][158] welche der folgenden tankwagenfirmen"
  545. 44020 print" soll sabotiert werden?"
  546. 44040 print"[144]  gesellschaft      preis  besitzer     ":print""
  547. 44060 forz=1to4:print""z;tg$(z)" "tp(z):nextz:print""
  548. 44080 forzz=1to4:forz=1tosz:iftb(zz)=zthenprinttab(27)sn$(z):goto44120
  549. 44100 nextz:printtab(27)"[144]frei"
  550. 44120 nextzz:print""
  551. 44140 gosub59900
  552. 44160 ifn<=0orn>4ortb(n)=0thenreturn
  553. 44180 gosub33000
  554. 44200 e=e+100:ife<100then44280
  555. 44220 ks(s)=ks(s)-((tp(n)*e)/100)
  556. 44240 zz=0:z=0:e=0:return
  557. 44280 ks(s)=ks(s)-((tp(n)*e)/100)
  558. 44300 tb(n)=0
  559. 44320 w3=fnz(200000):tp(n)=w3:lp(n)=0:tw(n)=int(w3/10000)
  560. 44340 zz=0:z=0
  561. 44360 print"[147][158]sie besitzen ein vorkaufsrecht auf die"
  562. 44380 print"von ihnen sabotierte tankwagenfirma:"
  563. 44400 print" firma      :"tg$(n)
  564. 44420 print" preis      :"tp(n)"$"
  565. 44460 print" lkwzahl    :"tw(n)
  566. 44480 print" wollen sie kaufen (j/n)?"
  567. 44500 gosub60200:poke53281,2:print"[158]"
  568. 44520 ifs$="j"thentb(n)=s:ks(s)=ks(s)-tp(n)
  569. 44540 ifs$="j"theninput" neuer lkw-preis";lp(n)
  570. 44560 return
  571. 45000 print"[147] welche der folgenden bohrgesellschaft-";
  572. 45020 print" en soll sabotiert werden"
  573. 45040 print"gesellschaft    preis       besitzer    [146]"
  574. 45060 forz=1to3
  575. 45080 printz;b$(z);bg(z);
  576. 45100 forzz=1tosz:ifbb(z)=zzthenprintsn$(zz)
  577. 45120 print:nextzz,z:print""
  578. 45140 gosub59900
  579. 45160 ifn<=0orn>3orbb(n)=0thenreturn
  580. 45180 gosub33000
  581. 45200 e=e+100:ife<100then45280
  582. 45220 ks(s)=ks(s)-((bg(n)*e)/100)
  583. 45260 goto45340
  584. 45280 ks(s)=ks(s)-((bg(n)*e)/100)
  585. 45320 bb(n)=0:bg(n)=fnz(100000):bd(n)=0
  586. 45340 e=0:z=0:zz=0:return
  587. 50000 pokel,15:poketh,13:poketl,15:pokea,3*16+15:pokeh,9
  588. 50100 readgx:readgy:readdt
  589. 50200 ifgx=-1thenrestore:return
  590. 50300 pokefh,gx:pokefl,gy
  591. 50400 pokew,65
  592. 50500 fort=1todt/v:nextt:pokew,0
  593. 50600 goto50100
  594. 51000 pokel,15:pokea,24:pokeh,170
  595. 51100 pokefh,2:pokefl,113:pokew,33
  596. 51200 fortt=1to50:nexttt
  597. 51300 pokew,0:pokea,0:pokeh,0:return
  598. 52000 fort=1to6:forts=4to14step10
  599. 52100 pokel,ts:pokea,15:pokeh,0:pokefh,6
  600. 52200 pokefl,133:pokew,17
  601. 52300 fortt=1to100:nexttt
  602. 52400 nextts,t:pokew,0:pokea,0:return
  603. 58000 input" neuer preis";e2
  604. 58100 return
  605. 59000 forx=1tosz
  606. 59010 ifbk(x)>0thenks(x)=ks(x)-5000:bk(x)=bk(x)-3000:gosub59400
  607. 59020 ifks(x)<0thengosub59100
  608. 59040 nextx:return
  609. 59100 print"[147]";:poke53281,0:poke53280,0
  610. 59120 poke53272,23:print" [196]ie [204]uft ist raus "sn$(x)
  611. 59140 forz9=1to30:pokel,15
  612. 59160 pokea,190:poketh,8:poketl,0
  613. 59180 pokefh,2+z9:pokefl,78+z9
  614. 59200 pokew,129:fortt=1to28:nexttt:nextz9:pokew,0
  615. 59220 print:print" [196]u bekommst von der [194]ankgesellschaft"
  616. 59240 print" [210]affke und [211]ohn einen [194]ankkredit von"
  617. 59260 print" 20000 [196]ollar. [196]u musst jetzt jedes [202]ahr"
  618. 59280 print" 5000 [196]ollar abbezahlen."
  619. 59300 print;:gosub60200:print"[147]":poke53272,21
  620. 59320 ks(x)=ks(x)+20000:bk(x)=bk(x)+20000:return
  621. 59400 print"[147][154] raffke und sohn bankkreditabteilung    [146]":poke53281,0
  622. 59420 print" teilt "sn$(x)" mit:"
  623. 59440 print" noch zahlbar   :"bk(x)"$"
  624. 59460 print" jetzt zahlbar  : 5 0 0 0.-- $"
  625. 59480 print" ihr kapital    :"ks(x)"$"
  626. 59500 print"";:gosub60200:return
  627. 59900 input"   welche firma (nr)";n
  628. 59950 return
  629. 60000 forb=1to6:print"":nextb
  630. 60050 return
  631. 60100 fortt=1to2000:nexttt:return
  632. 60200 gets$
  633. 60220 printtab(6)"bitte druecken sie eine taste[145]":forox=1to100:nextox
  634. 60260 printtab(6)"[144]bitte druecken sie eine taste[145]":forox=1to100:nextox
  635. 60280 ifs$=""then60200
  636. 60290 return
  637. 60300 fortt=1to2000:nexttt:return
  638.